﻿Namespace Cartes.CarteBatimentsCivils.AgeI

    Public Class PreteurSurGages
        Inherits CarteBatimentsCivils

        Public Overrides ReadOnly Property NomBatiment As String
            Get
                Return "Prêteur sur gages"
            End Get
        End Property

        Public Overrides ReadOnly Property Age As Integer
            Get
                Return 1
            End Get
        End Property

        Public Overrides ReadOnly Property FrequenceCarteNombreJoueur As List(Of Integer)
            Get
                Return New List(Of Integer) From {4, 7}
            End Get
        End Property

        Public Overrides ReadOnly Property CoutRessource As List(Of Carte.TypeRessouce)
            Get
                Return New List(Of Carte.TypeRessouce)
            End Get
        End Property

        Public Overrides ReadOnly Property Gratuite As List(Of Carte)
            Get
                Return New List(Of Carte)
            End Get
        End Property

#Region "Constructeur"
        Public Sub New()


            Dim lstEffet As New List(Of Carte.TypeRessouce)
            For i As Integer = 0 To 2
                lstEffet.Add(Carte.TypeRessouce.Victoire)
            Next
            Me.Effet.Add(lstEffet)

        End Sub
#End Region

    End Class
End Namespace
